10 RESTORE:READA:BO=PEEK(66)*256+PEEK(65)+3:DV=PEEK(186):IFDV<8THENDV=8
20 CE=BO+3:BL=BO+6:CO=BO+9:SW=BO+12:C2=BO+15:DY=BO+18:SYSBO:POKE53272,23
50 SYSCE,16,"[212][160][217][160][208][160][201][160][206][160][199][160][160][160][208][160][207][160][207][160][204]":SYSCE,17,"[194]Y [203]EN [210]OBINSON
70 [158]CE,19,"(LEN) 1998 BY MID$&ASC (null)UBLISHING
80 SYSCE,20,"[212]HIS [208]ROGRAM [201]SN'T [208]UBLIC [196]OMAIN
100 [143]
5000 [158]DY,"TYPING POOL",DV
6000 [131]0